# Trump and Trade, JOP 2019#

# FIGURE 2 #

require(ggplot2)
require(choroplethrMaps)
require(RCurl)
require(zipcode)
require(choroplethr)

# Import TAA data

taa<-read.csv("taa_map.csv", header=TRUE)

# Figure 2 #

data(continental_us_states)

taa$region = taa$cty_fips
taa$value = taa$repchange1
map_repchange1<-county_choropleth(taa,
                                  legend = "Change in Proportion of GOP Presidential Vote Share",
                                  state_zoom = continental_us_states) + scale_fill_brewer(palette="Reds", name ="Change in Proportion of GOP Presidential Vote Share")
map_repchange1